library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──
## ✓ ggplot2 3.3.3 ✓ purrr 0.3.4
## ✓ tibble 3.1.2 ✓ dplyr 1.0.6
## ✓ tidyr 1.1.3 ✓ stringr 1.4.0
## ✓ readr 1.4.0 ✓ forcats 0.5.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
library(ggrepel)
library(readr)
#Lendo
dados <- read.csv("alldata.csv")
dados$MONTH <- factor(dados$MONTH, levels = rev(c("JANEIRO", "FEVEREIRO", "MARCO", "ABRIL", "MAIO", "JUNHO", "JULHO", "AGOSTO", "SETEMBRO", "OUTUBRO", "NOVEMBRO", "DEZEMBRO")))
#Head
head(dados)
## NAME AGE DEATHDAY BIRTHDAY
## 1 ADRIANA PAULA AUDI 48 31/03/2017 -
## 2 ALCIDES MACHADO 52 31/03/2017 -
## 3 MARIA APARECIDA PEREIRA RODRIGUES 88 31/03/2017 -
## 4 JOAO FELICIO DOS SANTOS 62 31/03/2017 -
## 5 MARIA APARECIDA RIBEIRO SALES 64 31/03/2017 -
## 6 FLAVIANA DE CASSIA PINA SAMPAIO 50 31/03/2017 -
## FUNERAL
## 1 VELÓRIO MUNICIPAL PARAISO
## 2 VELÓRIO MUNICIPAL PARAISO
## 3 PARQUE DAS FLORES
## 4 URBAM SALA II
## 5 HORTO SÃO DIMAS
## 6 OUTRAS CIDADES
## BURIAL YEAR MONTH
## 1 CEMITERIO MUNICIPAL COLÔNIA PARAISO/SJC 01/04/2017 16:30 2017 MARCO
## 2 CEMITERIO MUNICIPAL COLÔNIA PARAISO/SJC 01/04/2017 13:30 2017 MARCO
## 3 CEMITERIO PARQUE DAS FLORES/SJC 01/04/2017 11:00 2017 MARCO
## 4 CEMITERIO MUNICIPAL COLÔNIA PARAISO/SJC 01/04/2017 08:00 2017 MARCO
## 5 CEMITERIO HORTO SÃO DIMAS/SJC 01/04/2017 08:00 2017 MARCO
## 6 CEMITERIO MEMORIAL DO VALE/JACAREI 01/04/2017 08:00 2017 MARCO
#Tail
tail(dados)
## NAME AGE DEATHDAY BIRTHDAY
## 52123 ROSSIMAR GOMES DE LIMA 54 01/06/2016 -
## 52124 WELLINGTON MARINHO DO NASCIMENTO 49 01/06/2016 -
## 52125 BENEDITA DE PAULA 69 01/06/2016 -
## 52126 GERALDA APARECIDA LOPES DA SILVA 69 01/06/2016 -
## 52127 NEWTON TANAAMI 59 01/06/2016 -
## 52128 VERONICA MARIA CASTELLANO DE VASCONCELLOS 59 01/06/2016 -
## FUNERAL
## 52123 OUTRAS CIDADES
## 52124 VELÓRIO MUNICIPAL PARAISO
## 52125 OUTRAS CIDADES
## 52126 URBAM SALA III
## 52127 IGREJA/SALAO
## 52128 URBAM SALA IV
## BURIAL YEAR MONTH
## 52123 CEMITERIO MUNICIPAL DE TAUBATE/SP 02/06/2016 09:00 2016 JUNHO
## 52124 CEMITERIO MUNICIPAL COLÔNIA PARAISO/SJC 02/06/2016 09:00 2016 JUNHO
## 52125 CEMITERIO MUNICIPAL DE TAUBATE/SP 02/06/2016 08:00 2016 JUNHO
## 52126 CEMITERIO MUNICIPAL COLÔNIA PARAISO/SJC 01/06/2016 15:50 2016 JUNHO
## 52127 CEMITERIO MUN. PE RODOLFO KOMOREK/CENTRO 01/06/2016 15:30 2016 JUNHO
## 52128 CEMITERIO MUN. PE RODOLFO KOMOREK/CENTRO 01/06/2016 13:00 2016 JUNHO
#Óbitos por Ano
ggplotly(
ggplot(data = dados) +
geom_bar(aes(x = YEAR)) +
labs(title = "Óbitos por ano segundo site da URBAM",
x = "Anos", y = "Óbitos", caption = "Período de 2016 à Junho de 2021") +
theme_light()
)
ggplotly(
ggplot(data = dados) +
geom_bar(aes(fill = MONTH, x = YEAR)) +
labs(title = "Óbitos por ano segundo site da URBAM",
x = "Anos", y = "Óbitos", caption = "Período de 2016 à Junho de 2021") +
theme_light()
)